home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / xlisp / xlglob.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  5.2 KB  |  137 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         xlglob.c
  5. * RCS:          $Header: xlglob.c,v 1.6 91/03/24 22:24:47 mayer Exp $
  6. * Description:  xlisp global variables
  7. * Author:       David Michael Betz
  8. * Created:      
  9. * Modified:     Fri Oct  4 04:16:11 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: xlglob.c,v 1.6 91/03/24 22:24:47 mayer Exp $";
  43.  
  44.  
  45. #include "xlisp.h"
  46.  
  47. #if (defined(UNIX) || defined(WINTERP))
  48. LVAL a_PIPE=NIL;
  49. #endif /* (defined(UNIX) || defined(WINTERP)) */
  50.  
  51. #ifdef WINTERP
  52.  
  53. /* additional type names for winterp*/
  54. LVAL a_XtAccelerators=NIL, a_XtTranslations=NIL, a_XEvent=NIL, a_Window=NIL,
  55.   a_Pixel=NIL, a_Pixmap=NIL, a_XImage=NIL, a_XmString=NIL, a_XmFontList=NIL,
  56.   a_XT_RESOURCE=NIL, a_CALLBACKOBJ=NIL, a_TIMEOUTOBJ=NIL, a_PIXMAP_REFOBJ=NIL,
  57.   a_WIDGETOBJ=NIL, a_EVHANDLEROBJ=NIL;
  58.  
  59. /* A vector that is marked so that winterp objects referenced inside MOTIF
  60.    or Xtoolkit code don't get garbage collected (see w_savedobjs.c) */
  61. LVAL v_savedobjs=NIL;
  62.  
  63. #endif
  64.  
  65. /* symbols */
  66. LVAL true=NIL,obarray=NIL;
  67. LVAL s_unbound=NIL,s_dot=NIL;
  68. LVAL s_quote=NIL,s_function=NIL;
  69. LVAL s_bquote=NIL,s_comma=NIL,s_comat=NIL;
  70. LVAL s_evalhook=NIL,s_applyhook=NIL,s_tracelist;
  71. LVAL s_lambda=NIL,s_macro=NIL;
  72. LVAL s_stdin=NIL,s_stdout=NIL,s_stderr=NIL,s_debugio=NIL,s_traceout=NIL;
  73. LVAL s_rtable=NIL;
  74. LVAL s_tracenable=NIL,s_tlimit=NIL,s_breakenable=NIL;
  75. LVAL s_setf=NIL,s_car=NIL,s_cdr=NIL,s_nth=NIL,s_aref=NIL,s_get=NIL;
  76. LVAL s_svalue=NIL,s_sfunction=NIL,s_splist=NIL;
  77. LVAL s_eql=NIL,s_gcflag=NIL,s_gchook=NIL;
  78. LVAL s_ifmt=NIL,s_ffmt=NIL;
  79. LVAL s_1plus=NIL,s_2plus=NIL,s_3plus=NIL;
  80. LVAL s_1star=NIL,s_2star=NIL,s_3star=NIL;
  81. LVAL s_minus=NIL,s_printcase=NIL;
  82.  
  83. /* keywords */
  84. LVAL k_test=NIL,k_tnot=NIL;
  85. LVAL k_wspace=NIL,k_const=NIL,k_nmacro=NIL,k_tmacro=NIL;
  86. LVAL k_sescape=NIL,k_mescape=NIL;
  87. LVAL k_direction=NIL,k_input=NIL,k_output=NIL;
  88. LVAL k_start=NIL,k_end=NIL,k_1start=NIL,k_1end=NIL;
  89. LVAL k_2start=NIL,k_2end=NIL,k_count=NIL,k_key=NIL;
  90. LVAL k_verbose=NIL,k_print=NIL;
  91. LVAL k_upcase=NIL,k_downcase=NIL;
  92.  
  93. /* lambda list keywords */
  94. LVAL lk_optional=NIL,lk_rest=NIL,lk_key=NIL,lk_aux=NIL;
  95. LVAL lk_allow_other_keys=NIL;
  96.  
  97. /* type names */
  98. LVAL a_subr=NIL,a_fsubr=NIL;
  99. LVAL a_cons=NIL,a_symbol=NIL,a_fixnum=NIL,a_flonum=NIL;
  100. LVAL a_string=NIL,a_object=NIL,a_stream=NIL,a_vector=NIL;
  101. LVAL a_closure=NIL,a_char=NIL,a_ustream=NIL;
  102.  
  103. /* evaluation variables */
  104. LVAL **xlstack = NULL,**xlstkbase = NULL,**xlstktop = NULL;
  105. LVAL xlenv=NIL,xlfenv=NIL,xldenv=NIL;
  106.  
  107. /* argument stack */
  108. LVAL *xlargstkbase = NULL;    /* argument stack base */
  109. LVAL *xlargstktop = NULL;    /* argument stack top */
  110. LVAL *xlfp = NULL;        /* argument frame pointer */
  111. LVAL *xlsp = NULL;        /* argument stack pointer */
  112. LVAL *xlargv = NULL;        /* current argument vector */
  113. int xlargc = 0;            /* current argument count */
  114.  
  115. /* exception handling variables */
  116. CONTEXT *xlcontext = NULL;    /* current exception handler */
  117. CONTEXT *xltarget = NULL;    /* target context (for xljump) */
  118. LVAL xlvalue=NIL;        /* exception value (for xljump) */
  119. int xlmask=0;            /* exception type (for xljump) */
  120.  
  121. /* debugging variables */
  122. int xldebug = 0;        /* debug level */
  123. int xlsample = 0;        /* control character sample rate */
  124. int xltrcindent = 0;        /* trace indent level */
  125.  
  126. /* gensym variables */
  127. char gsprefix[STRMAX+1] = { 'G',0 };    /* gensym prefix string */
  128. int gsnumber = 1;        /* gensym number */
  129.  
  130. /* i/o variables */
  131. int xlfsize = 0;        /* flat size of current print call */
  132. FILE *tfp = NULL;        /* transcript file pointer */
  133.  
  134. /* general purpose string buffer */
  135. char buf[STRMAX+1] = { 0 };
  136.  
  137.